gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\admin\sys_tagmanage.asp
<!--#include file="../Include/liangconn.asp"--> <!--#include file="../Include/Function.asp"--> <!--#include file="../Include/CheckLogin.asp"--> <% action = request("action") act = request("act") Tag_ID = Request("Tag_ID") Set Rs = Server.CreateObject("ADODB.Recordset") if action = "add" then sql = "Select * from Liangjing_Tags where 1>2" Rs.open Sql,conn,1,2 Rs.AddNew Rs("Tag_TypeID") = 1 Rs("Tag_Name") = Request("Tag_Name") Rs("Tag_IsUse") = Request("Tag_IsUse") Rs("Tag_OrderBy") = Request("Tag_OrderBy") Rs.Update if err.number = 0 then Response.Redirect("Sys_TagManage.asp") Response.end end if elseif action = "edit" then sql = "Select * from Liangjing_Tags where Tag_ID="&Request("Tag_ID") Rs.open Sql,conn,1,2 if not Rs.eof then Rs("Tag_Name") = Request("Tag_Name") Rs("Tag_IsUse") = Request("Tag_IsUse") Rs("Tag_OrderBy") = UCase(Request("Tag_OrderBy")) Rs.Update end if if err.number = 0 then Response.Redirect("Sys_TagManage.asp") Response.end end if elseif action = "del" then Sql = "Delete From Liangjing_Tags Where Tag_ID="&Tag_ID Conn.execute(Sql) Response.Redirect("Sys_TagManage.asp") Response.end end if if act = "edit" then Sql = "Select * from Liangjing_Tags Where Tag_ID="&Tag_ID Rs.open Sql,conn,1,2 if not Rs.eof then Tag_ID = Rs("Tag_ID") Tag_Name = Rs("Tag_Name") Tag_IsUse = Rs("Tag_IsUse") Tag_OrderBy = Rs("Tag_OrderBy") end if Rs.Close Set Rs = Nothing end if if act = "" then act = "add" %> <script language="javascript"> <!-- function frm_onsubmit(frm){ var frm = eval(frm); if(frm.Tag_Name.value==""){ alert("标签名称不能为空!"); frm.Tag_Name.focus(); return false; } if(frm.Tag_OrderBy.value=="" || isNaN(frm.Tag_OrderBy.value)){ alert("标签的排序不能为空,且只能为数字!"); frm.Tag_OrderBy.focus(); return false; } if(confirm("您确定要操作此标签吗?")){ return true; } return false; } function isDel(id){ if(confirm("您确定要删除此标签吗?")){ location.href="Sys_TagManage.asp?Action=del&Tag_ID="+id; } } --> </script> <link href="images/Admin.css" rel="stylesheet" type="text/css"> <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td> <table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC"> <tr bgcolor="#EAEAEA"> <td height="25" align="center">编号</td> <td align="center">页面名称</td> <td align="center">是否使用</td> <td align="center">排序</td> <td align="center">操作</td> </tr> <% sql="SELECT * From Liangjing_Tags order by Tag_IsUse,Tag_OrderBy" 'response.Write(sql) 'response.End() set RS=conn.execute(sql) while not Rs.eof %> <tr<%= Tr_MouseOver %> bgcolor="#FFFFFF"> <td height="22" align="center"> <%=Rs("Tag_ID")%></td> <td align="center"> <%=rs("Tag_Name")%></td> <td align="center"><% if Rs("Tag_IsUse") = true then Response.write("使用") else Response.write("<font color='#ff0000'>不使用</font>") end if %></td> <td align="center"> <%=rs("Tag_OrderBy")%></td> <td align="center"> <a href="javascript:isDel(<%=Rs("Tag_ID")%>);">删除</a> <a href="Sys_TagManage.asp?act=edit&Tag_ID=<%=Rs("Tag_ID")%>">编辑</a> </td> </tr> <% Rs.MoveNext Wend %> </table> <br> <form action="Sys_TagManage.asp" method="post" onSubmit="return frm_onsubmit(this);" name="frmdata"> <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC"> <tr> <td height="28" colspan="2" bgcolor="#EAEAEA"> <strong> 系统标签管理</strong></td> </tr> <tr bgcolor="#FFFFFF"> <td width="17%" height="23"> 类别名称:</td> <td width="83%" height="23"> <input type="text" name="Tag_Name" size="40" maxlength="40" value="<%=Tag_Name%>"></td> </tr> <tr bgcolor="#FFFFFF"> <td height="23"> 排列顺序:</td> <td height="23"> <input type="text" name="Tag_OrderBy" size="40" maxlength="50" value="<%=Tag_OrderBy%>"></td> </tr> <tr bgcolor="#FFFFFF"> <td height="23"> 是否使用:</td> <td height="23"> <input type="radio" name="Tag_IsUse" value="1" <% if Tag_IsUse = true or Tag_IsUse = "" then Response.write(" Checked") %>> 使用 <input type="radio" name="Tag_IsUse" value="0" <% if Tag_IsUse = false then Response.write(" Checked") %>> 不使用</td> </tr> <tr bgcolor="#EAEAEA"> <td height="22" colspan="2" align="center"> <input type="submit" name="Submit" value=" 提交 "> <input type="reset" name="Submit2" value=" 重置 "> <input type="button" name="button" value="重新添加" onClick="javascript:location.href='Sys_TagManage.asp';"> <input type="hidden" name="Tag_ID" value="<%=Tag_ID%>"> <input type="hidden" name="action" value="<%=act%>"> </td> </tr> </table> </form> </td> </tr> <tr> <td height="22"><div align="right"></td> </tr> </table> <% Set Rs = Nothing Set Conn = Nothing %>